Public Class formMain

    Private Sub formMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim prs As New Parser

        prs.UseArmory = True
        prs.Realm = "Proudmoore"
        prs.Region = "US"
        prs.UpdateSpellDb = True

        prs.Parse(txtLogFilename.Text)
    End Sub

    Private Sub btnRefLogFilename_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefLogFilename.Click
        OpenFileDialog1.FileName = txtLogFilename.Text
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtLogFilename.Text = OpenFileDialog1.FileName
        End If
    End Sub
End Class
